home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Lisp / 68020 / exit-loop.cl < prev    next >
Text File  |  1995-08-25  |  101b  |  5 lines
  1. /* Makes CLISP jump out of infinite loop */
  2. address CLISP1
  3.  
  4. '(throw ''system::debug ''system::quit)'
  5.